00100	COMPILE;
00200	INSTRUMENT EASY;
00300	OSCIL[10](P4,10*MAG/P2,P5);
00400	OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
00500	OSCIL(U1,MAG*P3+U2,P6);
00600	OUTA←OUTA+U3; END;
00700	
00800	INSTRUMENT RANDY;
00900	OSCIL[10](P4,10*MAG/P2,P5);
01000	OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
01100	RANDI(MAG*P10,MAG*P11);
01200	OSCIL(U1,MAG*P3+U3+U2,P6);
01300	OUTA←OUTA+U4; END;
01400	
01500	INSTRUMENT RANCH;
01600	OSCIL[10](P4,10*MAG/P2,P5);
01700	OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
01800	RANDH(MAG*P10,MAG*P11);
01900	OSCIL(U1,MAG*P3+U2+U3,P6);
02000	OUTA←OUTA+U4; END;
02100	
02200	INSTRUMENT HARDI;
02300	OSCIL(P4,MAG/P2,P5);
02400	OSCIL(1,MAG/P2,P6);
02500	OSCIL(U1*(1-U2),MAG*P3,P7);
02600	OSCIL(U1*U2,MAG*P3,P8);
02700	OUTA←OUTA+U3+U4; END;
02800	
02900	INSTRUMENT HARDT;
03000	ZOSCIL(P4,MAG/P2,P5);
03100	ZOSCIL(1,MAG/P2,P6);
03200	ZOSCIL(MAG*P9-MAG*P3,MAG/P10,P11);
03300	ZOSCIL(U1*(1-U2),MAG*P3+U3,P7);
03400	ZOSCIL(U1*U2,MAG*P3+U3,P8);
03500	OUTA←OUTA+U4+U5; END;
03600	
03700	INSTRUMENT HARDS;
03800	ZOSCIL(P4,MAG/P2,P5);
03900	ZOSCIL(1,MAG/P2,P6);
04000	ZOSCIL(MAG*P9-MAG*P3,MAG/P10,P11);
04100	ZOSCIL(U1*(1-U2),MAG*P3+U3,P7);
04200	ZOSCIL(U1*U2,MAG*P3+U3,P8);
04300	OUTA←OUTA+U4+U5; END;
04400	FINISH;